#while EXPRLABEL
#while (EXPR) BLOCKLABEL
#while (EXPR) BLOCK continue BLOCK


$linecount++ while ();

do
{
   $calc += ($fact*$ivalue);
} while $calc <100;

while($calc < 100)
{
   $calc += ($fact*$ivalue);
}


for ($i=0;$i<100;$i++)
{
print i;
}


do
{
  $calc += ($fact*$ivalue);
} until $calc >= 100;



for ($index=0;$index<@months;$index++)
{
   print "$months[$index]\n";
}


foreach (@months)
{
   print "$_\n";
}


foreach $key (keys %monthstonum)
{
   print "Month $monthstonum{$key} is $key\n";
}

